
{*************************************************************}
{                                                             }
{       dbExpress for Informix extension Delphi.NET bridge    }
{                                                             }
{       Copyright (c) 2001-2006 Luxena Software Company       }
{       http://www.luxena.com                                 }
{       e-mail: support@luxena.com                            }
{                                                             }
{*************************************************************}

library DBXInfExtIntf;

{$R DBXInfExtIntf.res}

uses DBXpress, DBXInfExt;

function SQLCA(Self: Integer): PSQLCA; stdcall;
begin
  Result := IInformixConnection(Self).SQLCA;
end;

function ErrorMessage(Self: Integer): PChar; stdcall;
begin
  Result := IInformixConnection(Self).ErrorMessage;
end;

function SetTimeOutCallback(Self: Integer; TimeOut: Integer; Callback: TimeOutCallback; CustomData: Pointer): SQLResult; stdcall;
begin
  Result := IInformixConnection(Self).SetTimeOutCallback(TimeOut, Callback, CustomData);
end;

function InterruptSQL(Self: Integer): Boolean; stdcall;
begin
  Result := IInformixConnection(Self).InterruptSQL;
end;

function GetLastInsertedSerial8(Self: Integer; out Value): Boolean; stdcall;
begin
  Result := IInformixConnection(Self).GetLastInsertedSerial8(Value);
end;

function ServerVersion(Self: Integer): PChar; stdcall;
begin
  Result := IInformixConnection(Self).ServerVersion;
end;

function IsDynamicServer(Self: Integer): Boolean; stdcall;
begin
  Result := IInformixConnection(Self).IsDynamicServer;
end;

function IsUniversalServer(Self: Integer): Integer; stdcall;
begin
  Result := IInformixConnection(Self).IsUniversalServer;
end;

function SessionID(Self: Integer): Integer; stdcall;
begin
  Result := IInformixConnection(Self).SessionID;
end;

exports
  SQLCA,
  ErrorMessage,
  SetTimeOutCallback,
  InterruptSQL,
  GetLastInsertedSerial8,
  ServerVersion,
  IsDynamicServer,
  IsUniversalServer,
  SessionID;

end.
